home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / biz / dopus / DOpus56SPA.lha / Instalar < prev    next >
Text File  |  1997-08-29  |  2KB  |  65 lines
  1. ; $VER: Install Opus5.65 Spanish (29.08.97)
  2. ; Script to install the Spanish catalog translation for Opus 5.65.
  3. ; Adapted Dr Greg Perry's Norsk version
  4.  
  5. (set #install-msg
  6. (cat 
  7.      "Localización española del Directory Opus 5.65\n\n"
  8.      "DOpus 5.65  ©1997 Jonathan Potter & GP Software\n"
  9.      "Traducción de Santiago Hernández Blasco\n\n"
  10.      " Para cualquier sugerencia o corrección de la traducción\n"
  11.      "envíe un e-mail a:\n"
  12.      "a11315803@abonados.cplus.es    Santiniki@geocities.com"
  13. ))
  14.  
  15. (message #install-msg)
  16.  
  17. ;=============================================================================
  18. ; check if Directory Opus 5 is already installed
  19.  
  20. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  21.     (abort "Primero instalar Directory Opus 5.65")
  22. )
  23.  
  24. (set @default-dest "")
  25.  
  26. ;=============================================================================
  27. ; install catalogs
  28.  
  29. (copyfiles
  30.    (source "Catalogs")
  31.    (dest "DOpus5:Catalogs")
  32.    (pattern "#?")
  33. )
  34.  
  35. ;=============================================================================
  36. ; install Spanish version of buttons banks
  37.  
  38. (copyfiles
  39.    (source "Buttons")
  40.    (dest "DOpus5:Buttons")
  41.    (pattern "#?")
  42. )
  43.  
  44.  
  45. (if
  46.    (askbool
  47.       (prompt "La versión española del menú lister pop-up "
  48.               "está disponible.\n\n"
  49.               "¿Quiere instalarle y renombrar el anterior como\n"
  50.               "'lister menu_old'?"
  51.       )
  52.       (help "Instala la versión española del lister pop-up standard ")
  53.    )
  54.    (
  55.       (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
  56.       (copyfiles
  57.          (source "DOpus5:Buttons/lister menu_SP")
  58.          (dest "DOpus5:Buttons")
  59.          (newname "lister menu")
  60.       )
  61.    )
  62. )
  63.  
  64. (exit)
  65.